home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / SGBDI.z / SGBDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSGGGGBBBBDDDDIIII((((3333FFFF))))                                                            SSSSGGGGBBBBDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SGBDI   - SGBDI computes the determinant of a band matrix using the
  10.      factors computed by SBGCO or SGBFA.  If the inverse is needed, use SGBSL
  11.      N  times.
  12.  
  13.  
  14. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  15.       SUBROUTINE SGBDI(ABD,LDA,N,ML,MU,IPVT,DET)
  16.  
  17. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  18.      On Entry
  19.  
  20.      AAAABBBBDDDD REAL(LDA, N)
  21.         the output from SBGCO or SGBFA.
  22.  
  23.      LLLLDDDDAAAA INTEGER
  24.         the leading dimension of the array  ABD .
  25.  
  26.      NNNN INTEGER
  27.         the order of the original matrix.
  28.  
  29.      MMMMLLLL INTEGER
  30.         number of diagonals below the main diagonal.
  31.  
  32.      MMMMUUUU INTEGER
  33.         number of diagonals above the main diagonal.
  34.  
  35.      IIIIPPPPVVVVTTTT INTEGER(N)
  36.         the pivot vector from SBGCO or SGBFA.  On Return
  37.  
  38.      DDDDEEEETTTT REAL(2)
  39.         determinant of original matrix.
  40.         Determinant = DET(1) * 10.0**DET(2)
  41.         with  1.0 .LE. ABS(DET(1)) .LT. 10.0
  42.         or  DET(1) = 0.0 .  LINPACK.  This version dated 08/14/78 .  Cleve
  43.      Moler, University of New Mexico, Argonne National Lab.  Subroutines and
  44.      Functions Fortran ABS
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.